AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 


| 
LLLLLLLLLLLLLLL | 
| 
| 


**F I LE**1D**]OSUBS 


III] 000000 SSSSSSSS UU UU B88BBBBBB SSSSSSSS 
W111! 000000 SSSSSSSS_ UU UU BBBBBBBB SSSSSSSS 
I] 00 00 SS UU UU BB SS 
I] 00 00 SS UU UU 8B BB SS 
I] 00 oo SS UU UU BB BB SS 
II 00 00 SS UU UU BB BB SS 
I] 00 00 SSSSSS UU UU BBBBBBBB SSSSSS 
I] 00 00 SSSSSS UU UU BBBBBBBB SSSSSS 
I] 00 SS UU UU BB BB SS 
II 00 00 SS UU UU BB BB SS 
I] 00 00 SS UU UU BB BB SS eeee 
II 00 00 SS UU UU BB BB SS eee 
III 000000 SSSSSSSS UUUUUUUUUU = BBBBBBEB SSSSSSSS cove 
T1111 000000 SSSSSSSS UUUUUUUUUU = BBBBBBBB SSSSSSSS cece 
LL IIIII1 SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I! $$ 
LL I] $$ 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL II1I1 SSSSSSSS 
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(3) 1 MAILSIOSUB_INIT = ALLOCATE SOME BUFFERS 

(4) 1 MAILSCONFIRM = PROMPT FOR See eae 

(5) 181 MAILSUPCASE = CONVERT A STRING TO UPPERCASE 

($) 11 MAILSUPCASE_Q = CONVERT A STRING 19 UPPERCASE HANDLING QUOTES 
(7) 51 MAILSGETMSG = Find message text for code 

(8) 77 MAILSFAO_GETMSG, GETMSG and then FAO message 

(9) 04 MAILSMATCH_N *gpeneral wild card matching 

(10) 400 MAILSREAD_ERROR 

(11) 451 MAILS INCL INKAD “= INCREMENT LINK ADDRESSEE COUNT 

(12) 475 MAILSDECLINKADR = DECREMENT LINK ADDRESSEE COU 

(13) 496 MAILSDELEMPLINK = DELETE ALL LINKS WITH NO ADDRESSES 
(14) 525 MAILSDELETELINK = DELETE ALL THE LOGICAL LINKS 


eee) 


ec ee on Paine 2its < 
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MAILSIOSUBS = INPUT/OUTPUT ROUTIN ° 
ug a NCSEECIBE GRS:EH WAMEMENDS RAO, Po 


-TITLE MA LSiOsues - INPUT/OUTPUT SUBROUTINES 
SIDENT 'V 


LARRABARSAAAAAAAAAASAAA ALAA SAAS ALE SSSA SALE AAAS ESAS ESSER RRA EES ER ERR SERS 


Bo 

0 i; 

00 5 38 * 

Boop § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

B38 :* DIGITAL EQUIPMENT CORPORATION, MAYNARE. MASSACHUSETTS. * 

44 8 :* ALL RIGHTS RESERVED. . 

0000 10 :* THIS SOFTWARE I$ FURNISHED gaat BS LICENSE AND MAY BE USED AND copies * 

0000 11 3;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ants SE AND WITH THE * 

B38 \¢ 3* INCLUSION OF THE ABOVE COPyRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER . 

00 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE ADE AVAILABLE TO ANY * 

0900 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

8006 1? :* TRANSFERRED. * 
° ® 

0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL EQUIPMENT * 

44464 13 :* CORPORATION. a 
° ® 

0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0000 $$ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0000 23 ;* * 

0000 24 3 * 

4464 $2 SRR AAA AE EAA AE RAAT AAA AT TATA e eee 

0000 27° 

0000 28 3+ 

$464 $3 3 FACILITY: VAX/VMS MAIL UTILITY 

aad H : ABSTRACT: INPUT AND OUTPUT SUBROUTINES. 

9000 33 : ENVIRONMENT: NATIVE/USER MODE 

44 35 ; AUTHOR: LEN KAWELL, CREATION DATE: 2-FEB-79 

9000 3 : MODIFICATION HISTORY: 

0000 39 : v03-008 BLS0255 Benn Schreiber 28-Dec-1983 

444 rt 3 Correct upcase_q, use new global flags 

0000 4¢ : v03-007 BLS0246 Benn Schreiber 8-Nov-1983 

0000 re 3 Add MAILSIOSUB_INIT to remove " stetically allocated buffers 

$000 45: v03-006 BLS0229 Benn Schreiber 16-Jul-1983 

0000 46; Remove routines rewritten into BLISS and fold in what 

i 7 3 is left of NETSEND.MAR 

$00 49: v03-005 BLS0220 Benn Schreiber 30-Apr-1983 

$88 29 : Keyapd input routine support 

000 3g : v03-004 BLS0214 Benn Schreiber 27-Mar-1983 

4 3 Add MAILSFAO _GETMSG. to GETMSG a message and then 

00 : 3 apply fao to it. 

009 8 ; v03-003 BLS0211 Benn Schreiber 13-Mar-1983 

0 : Rework alternate net support for more flexibility. Handle 
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PASO UM 


ul wr—Ow0oew 


“SRSIRNE BMHEES ARYMEAMTGRURSRE, Po 


CTRL/C as EOF in MAILSGET_INPUT 


V03-002 BLS0194 Benn Schreiber 19-Nov-1982 


Add support for alternate incoming network access 


v03-001 wer Benn Schreiber 15-0¢ t-1982 


Add routine to upcase except in double quote pairs 
Add routine to do wildcard matching 


00000000 


MAILSIOSUBS = _INPUT/O 
v04-000 DECLARATI 
: 

00000004 00 
00000008 0000 
00000200 2000 
444 

000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

00000000 

0000 

QOOOOOFF 0000 
00000000 Bo08 
00000200 0008 
000C 

0010 

0000 


— oe 


FAOARG1 


F AOBUF : 


SOOOOOO0O0 OOO OW WOW WO WOOO NI NIN NIN INNO OO 
AMROOWDNA NE WIN  O ODNAUE WN OC OODNOULS WN O00 


948 pty - LONG 
MSGBUF 


as SUBROUTINES 


~SBTTL DECLARATIONS 


: INCLUDE FILES: 


; EQUATED SYMBOLS: 
BUFF _DESC 


MAILSK_INBUFFSZ = 512 


SSTSDEF 


MAIPDEF 


: LOCAL MACROS: 


: OWN STORAGE: 


»PSECT 


LONG 


FAODESC: “LONG 


- LONG 


-PSECT 


& ;BUFFER DESCRIPTOR ARGUMENT 

= 8 sFIRST FAO ARGUMENT ARGUMENT 
; INPUT BUFFER SIZE 
STATUS MESSAGE DEFINITIONS 
3S D MESSAGE DEFINITIONS 
:CNCT BLOCK DEFINITIONS 
;LOGICAL LINK DEFINITIONS 
;MAIL CONTROL FLAG DEFINITIONS 


SOWNS ,LONG, RD, WRT ,NOEXE 
55 


SCODES,LONG,RD,NOWRT , EXE 


sEVENTUALLY A DESCRIPTOR (ORDER ASSUMED) 
5‘? AND ANOTHER DESCRIPTOR 


MA! 
v0é 


es 
MAILSIOSUBS - INPUT/OUTPUT SUBROUTINES =SEP=1984 AX/VMS Macro V04-00 Page 4 MA 
v04=0 MAILSIOSUB_INIT = ALLOCATE SOME BUFFERS 5-SEP-1984 t Bf: $8:25 MAIL. SRCJIOSUBS.MAR; 1 - oh vO 
- .SBTTL MAILSIOSUB_INIT - ALLOCATE SOME BUFFERS 
5: * FUNCTIONAL DESCRIPTION: 
5 : ALLOCATE BUFFERS FOR ROUTINES IN THIS MODULE 
109 i= 
0 110 
001¢ 0000 111 JENTRY WAILSIOSUB_INIT, “McR2,R3,R4> 
OOFF BF 3C 000 118 MOVZWL #255,-(SP) SSIZE OF BUFFER TO ALLOCATE 
"Fooooope Et 9F 0007 11 PUSHAB MSGBUF SADDRESS OF LONGWORD TO STORE ADDR IN 
9F 000D 114 PUSHAB 4(SP) SADDR OF SIZE OF BUFF 
00000000' F FB 001 115 ALLS #2,G*LIBSGET_VM SALLOCATE IT 
9 001 116 BLBC RO,20$ ‘BRANCH IF ERROR 
6 0200 BF 3¢ OO1A 11 MOVZWL #510, (SP) TALLOCATE FAO BUFF 
000 cer F OO1F 118 PUSHAB FAOBUF SADDR TO STORE BUFFER ADDR INTO 
OF . i PUSHAB 4(SP) TADDR OF SIZE OF ER 
00000000' cr FB 8 120 CALLS #3,G°L1BSGET_VM SALLOCATE 
8 ,. on BLBS RO.40$ ‘BRANCH IF ALL OK 
92 DD 0032 1 : 20$: PUSHL RO [SIGNAL ERROR 
00000000'GF 01 FB 0034 1 CALLS #1,G*LIBSSIGNAL 
04 0038 4 40$: RET 


MAILS$SIOSUBS 
v04-0 


0004 
2D OOOOOOOO*EF 01 £0 
08 AC DD 
04 AC DD 
QOOOO000"EF 9F 
00000000'GF 03 FB 
52 04 AC 00 
is 
1 1 
0462 59 8F 91 
o? 13 
0462 79 8F 491 
04 12 
50 01 00 
04 
50 4 
04 


—cC 
z2-— 
z=v 
o_ 
um 
zac 
ow 
J 


OOOCOCOCOOOoOoOoOooooooooooooooooooooooooooooooooo 


SSssssss 
oo SOOSOCSCSOSOOOCOSOSSOO OOS SCOCSOCSOCOCOC COCO OCOCSO OOOO OCOOOOOOOOOOO 


SNS NENA AA AAA MII & ENN NININ AWA AAAI AIA AAI AIAN oa 
™ 


AMNWWAN FMS WD = MSO OMA OAMMAAHAAAAOHAAAAAAAAOAAAAAAAAAAAAAAAOA "OO 
ee ed ed ed od od od dS 3 8 8 8 =  — — — — — — - s — — — — ) — ) — 
SNS SSS SSR DP DPD PPP DEDEDE UU Be Be BS BB EB AIAN AI) 
WO NAUE WN § 0 OD NAMUE WIN $$ O OD NAU EWN 0 OO NOU EWN O OONOUE WR O0OOon 
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CONFIRMATION “SEP=19 MAIL.SRCJIOSUBS.MAR; 1 
~SBTTL MAILSCONFIRM = PROMPT FOR CONFIRMATION 


=cC 
Te 
oz 
=m 


p++ 
3 FUNCTIONAL DESCRIPTION: 


If THIS IS NOT A NETWORK JOB, THEN PROMPT FOR A YES OR NO 
RESPONSE AND CHECK IF YES OR NO. 


CALLING SEQUENCE: 
CALL MAILSCONF IRM(BUFF_DESC,PROMPT_DESC) 


INPUT PARAMETERS: 
BUFF _DESC(AP) = 
PROMPT_DESC (AP) 


IMPLICIT INPUTS: 
MAILSGL_FLAGSCMAIF_V_NETJOB] = 1 IF THIS IS A NETWORK JOB. 


OUTPUT PARAMETERS: 
NONE 


ye OF BUFFER DESCR 


CRIP 
DDR OF PROMPT DESCR 


TOR 
IPTOR 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: : 
RO = SUCCESS IF RESPONSE WAS A ‘'y' 
= ERROR IF NO RESPONSE, RESPONSE WAS NOT A "'Y'', OR JOB IS 
«a NETWORK JOB. 


SIDE EFFECTS: 
PROMPT DISPLAYED AND INPUT OBTAINED FROM INPUT DEVICE. 
-ENTRY MAILSCONFIRM,- PROMPT AND GET RESPONSE 
“M<R2> ; (ENTRY 
BBS #MAIF _V_NETJOB,MAILSGL_FLAGS,20$ ;8R IF NETWORK JOB 


PUSHL 8(AP) 3STACK PROMPT DESCRIPTOR ADDRESS 
;STACK GET-STRING 


10$: 


PUSHL  4(AP F 
PUSHAB MAIL$L_SMG_KEYBOARD sAND KEYBOARD | 
ALLS #3,G°SMGSREAD_STRING | ;READ FROM SYSSINPUT 
MOVL § BUFF_DESC(AP)7R2 [GET ADDRESS OF BUFFER DESC 
TSTW = (R2) [NO RESPONSE? 
BEQL 208 ‘BR IF YES = NO RESPONSE = “'NO"’ 
CHB way" a4 (R2) [WAS RESPONSE ‘‘YES''? 
CMPB#*A''y'',€4(R2) [WAS RESPONSE ‘‘yes'’? 
BNEQ 208 :BR IF NO 
MOVL #1,R0 :SET "'YES'’ RESPONSE 
0$: : 
cLRL RO :SET "'NO'’ RESPONSE 
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yortobo MAILSUPCASE = CONVERT A STRING TO UPPERC ei oety 7 80: 28: 23 YRAIL SRC} {OSuBS .MAR:1 . (8) 
* .SBTTL MAILSUPCASE = CONVERT A STRING TO UPPERCASE 
183 : 
4 : FUNCTIONAL DESCRIPTION: 
$ : THIS ROUTINE IS CALLED TO CONVERT A STRING TO UPPER CASE CHARACTERS. 
188 : 
189 ; 
190 ; 
0 191 ; 
0 : ; OUTPUTS: 
0 4 : STRING CONVERTED TO UPPERCASE. 
0004 0 6 : ENTRY MAILSUPCASE, - CONVERT 10. UPPER CASE 
50 04 aC 00 8 198 OVL BUFF “DESCCAP), RO GET ADDRESS oF DESCRIPTOR 
51 60 ¢ 0 199 MOVZWL (RO) 7R1 GET SIZE 0 TRING 
1B «O13 «0 200 EQL 308 SEXIT IF ER °° 
50 04 a0 DO 0 : 1 MOVL  4(RO),RO [GET ADDRESS OF STRING 
80 90 0 : 10$: MOVB (RO)+,R2 [GET NEXT CHARACTER 
61 BF 52 91 0 2 CMPBseR2,, #*A"'a"" LOWER CASE LETTER? 
7 0B iF O 204 BLSSU 208 SSU NO 
7A BF 6520—=C«@:s«*O 205 CMPBsoaR2,, #*A"'2"" LOWER CASE LETTER? 
05 1A 0 206 BGTRU 208 :IF STRU NO 
FF AO 52 20 83 0 : 7 U #32,R2,-1(RO) ‘CONVERT TO UPPERCASE LETTER 
€9 51.—s«F5 0 : : 208: SOBGTR R1,10$ :DECREMENT COUNT AND LOOP 


INPUTS | 
BUFF _DESC = ADDRESS OF STRING DESCRIPTOR. 


nn in an a i ss es es es et et a 


ZESSSSSFSSSSSSSSS SESS SSS SSS SSSSSSS 


a , 


STRING CONVERTED TO UPPERCASE. 


L 2 
yoes008 MALLSUPCASE. 0 = CONVERT A STRING TO UPPE 'S-SEP=19B6 Oi:Sosa? mate SRCSiosubs mans = 28d 
9 is .SBTTL MAILSUPCASE_Q - CONVERT A STRING TO UPPERCASE HANDLING QUOTES | 
$0 FUNCTIONAL DESCRIPTION: | 
90 : THIS ROUTINE 1S CALLED TO CONVERT A STRING TO UPPER CASE CHARACTERS. | 
9 CHARACTERS INSIDE DOUBLE QUOTES ARE NOT CONVERTED 
90 : INPUTS: 
; BUFF _DESC = ADDRESS OF STRING DESCRIPTOR. 
OUTPUTS: 


o 
So 
Oo 
oO 
oO 
CSOCSOSCOSCO 
wooonoonovnono 
oo0000000 
BRR EEE EEF FAWN IWIN OPPO 2 


OWONAWE WN OO ONO UIE WN O OO NOA UE WI O OO NOU Er 


ENTRY MALL SUPCASE. Q,- sCONVERT TO UPPER CASE 
O9F - (ENTRY MASK) 
50 AC 00 009F MOVL BUFF “BESCCAP, RO :GET ADDRESS OF DESCRIPTOR 
51 $0 g 00A3 MOVZWL (RO) TR T SIZE OF STRING 
2 13 006 BEQL 308 ; EXIT IF 2 
53 FF BF 6098 «(O0AB CVTBL #-1,R3 SASSUME NOT IN DOUBLE QUOTES 
50 04 a0 D0 OOAC MOVL 4(RO),RO :GET ADDRESS OF STRING 
52 80 90 008 10$:  MOVB (RO) +,R2 'GET NEXT CHARACTER 
2 2 91 008 CMPBsaR2, #*A/"'/ DOUBLE quore CHARACTER? 
OA 12 0086 BNEQ 158 :1F NEQ NO 
53 D6 0088 INCL R i YES~= INCREMENT LEVEL 
18 13 OOBA BEQL 208 SIF EQL FIRST QUOTE 
53 FF 8F 98 O0BC CVTBL #-1,R3 [RESET QUOTE LEVEL 
15 11 99¢9 BRB 20$ : CONT INUE 
53S 90¢ 15$:  TSTL R3 S INSIDE auoTEs? 
11 18 00C4 BGEQ 208 :IF GEQ Y 
61 8F 52 91 00C6 CMPB OR, #“A"'a"" SLOWER CASE LETTER? 
08 1F OOCA BLSSU 2 :IF LSSU NO 
7A BF 6 552—«i«@'”s«éECC CMPB sR, #*A'2"* SLOWER CASE LETTER? 
05 1A 0000 BGTRU 2 TIF GTRU 
FF AO 52 20 83 00D SUBB3) #32, R2,-1(RO) [CONVERT TO UPPERCASE LETTER 
D6 51 FS 9007 208: SOBGTR R1,10$ ;DECREMENT COUNT AND LOOP 


7 
mM 2 
MAILSIOSUBS - |] wei coureut UBROUTINES SEP=-19 AX/VMS Macro V04-00 Pa 
v04 MAILSCETHSG Find meseoge text for code ‘S-SEPal9Re O1:S0;4? LMATE Sees osueS mags 1 tt hy 
8 5 ce -SBTTL MAILSGETMSG = Find message text for code | 
DB 38 3 Functional description: | 
DB 33 3 return descriptor for message code 
obs 7 : inputs: 
Op 53 ; 4(ap) = value of code to Lookup 
DB 261: 
DB $6 3 
DB 65 ; 
0DB8 64 ; 
0008 65 ;-- 
0004 ites 66 eENTRY MAILSGETMSG,“M<R2> 
52 00000000'EF 9E OO0DD 68 MOVAB L“MSGDESC,R2 
62 0200 BF 3C O0E4 69 MOVZWL rie (R2) 
OOE9 70 SGETMSG_ : MSGID= 4(AP),- 
O00E9 71 MSGLEN=MSGDESC, - 
O0E9 7 BUF ADR=MSGDESC,- 
3 7 FLAGS=41 
0103 MOVL RD. RO 
0106 RET 


routine value 
r0 = address of descriptor of message text 
| 
| 
| 
| 
| 


= 
> 
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i -SBTTL MAILSFAO_GETMSG, GETMSG and then FAO message 
> FUNCTIONAL DESCRIPTION: 


This routine perrerns a SGETMSG on a message, then does a $FAO, 
and returns the address of the string descriptor of the result. 


NPUT/O 
L$ 


| 
) 
, 


= | 
MAI 


Inputs: 


Value of message code 
Start of $fao arglist 


cos 
an 
ad 
vv 
~~ 
“uu 


WIND IPIPIPYINIPIPIPININININPININIPIPININININIPINPY 


COOCO0O00O0O0O0O0 OOO WOOO CD OD CD CD ODO0 SII 
MOOD NAVUE WN" OOONOU SW" OOo 


OWOOO099 O29 ONS 


-ENTRY MAILSFAO_GETMSG, “M<R2> 
04 AC DD -PUSHL 4 (AP) 
FFCA CF O01 FB CALLS #1,W°MAILSGETMSG 
52 90000008" EF 9E MOVAB FAODESC,R2 :GET ADDRESS OF BUFFER DESCRIPTOR 
62 0200 8 3¢ MOVZWL #512, (Re) SRESET DESCRIPTOR 
51 50 00 OVL _—RO,RI 'GET ADDRESS OF CONTROL STRING DESCR 
SFAOL_S CTRSTR=(R1),- 3D0 THE FAO 
OUTLEN=(R2).- 
OUTBUF=(R2).= 
PRMLST=8(APS 
0350 €9 BLBC _—RO, 108 sI1F THERE IS AN ERROR, WILL ACCVIO 
50 «52 BO nt MOVL R2.RO : EVENTUALLY 


B 3 
1 
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v04-000 MAILSMATCH_NAME, general wild card match mets 1:50:47 CMAIL.SRCJIOSUBS.MAR; 1 (9) 
! f : 5a ~SBTTL MAILSMATCH_NAME, general wild card matching | 
137 $ ; Functional Description: | 
137 $ This routine performs the general embedded wild card matching 
0137 08 ; algorithm. 
3} 7 09 ; 
137 10 ; Calling Sequence: 
4 4 ie 3 ret_status.wlc.v = STRSMATCH_NAME (CAND.rt.dx,PATRN.rt.dx) 
0137 18 ; Formal Parameters: 
0137 14; CAND. rt.dx Address of string descriptor for candidate string 
0137 15 ; (The current item being Looked at 
0137 16 ; PATRN.rt.dx Address of string descriptor for pattern string 
0137 7 3 (The item looking for) 
0137 18 ; 
0137 19 ; Implicit Inputs: 
0137 0; none 
0137 13 
0137 ¢ ; Output Parameters: 
0137 : none 
0137 324; 
bis! 325 ; Implicit Outputs: 
0137 «326 ; none 
O1S7 Se? 3 
0137 328 ; Routines Called: 
0137 329 STREANALYZE_SDESC_R1 | 
0137 3 0 Py | 
0137 331 ; Routine Value: 
0137 338 3 STRS_MATCH if the strings match. 
0137 33 3 STRS_NOMATCH if the strings don't match 
0137 34 ; 
0137 335 ; Signals: 
0137 336; Errors from STRSANALYZE_SDESC 
) ae oe 
0137 338 ; Side Effects: 
0137 339; none 
0137 340; 
0137 341 ;-- 
00000001 0137 $06 STRS_MATCH = 1 
00000000 O137 348 STRS-NOMATCH = 0 
O3FC o137 $22 -ENTRY mailSmatch_name,“M<R2,R3,R4,R5,R6,R7,RB,R9> | 
50 04 AC DO 0133 3? MOVL 4(AP) ,RO ; get first descriptor address | 
00000000'GF 16 013D 48 JSB G*STRSANALYZE_SDESC_R1 3; extract string length and address 
7 7D 0143 49 MOVQ RO,-(SP) ; save descriptor 
50 Q8 AC 00 0146 50 MOVL 8(AP) RO 3 get second descriptor address | 
00000000'GF 16 O14A 51 JSB G*STRSANALYZE_SDESC_R1 ; analyze second descriptor 
54 50 7D 9139 2¢ MOVa = RO, R4 ; set up for match algorithm 
32 BE 7D 19 5 MOVa  (SP)+,R2 : retrieve first descriptor | 
5 00 dO 0156 54 MOVL #STRS_NOMATCH,RO ; Assume failure 
56 4 Biap 2? CLRL R6 ; Clear saved candidate count | 
0156 33 ; Main scanning Loop. | 
54 D7 0156 35 los: DECL R4 ; Pattern exhausted? 
24 «#19 015d 60 BLSS 308 ; Branch if yes 
| 
| 
| 
| 


<z 
Oo, 
fe 


Be Pe Oe Oe Se BH Ge Se Bs Oe Be BH Se Be Se Se Se BH Se Be FH Se Be Se Se Se FH Se Se Se Se Se FH Se Se FH Se Se Se FH Se Se Se Se SH Se Se SH Se ee se Se Se Se Fe eeas 
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yoLto00 MAILSMATCH_NAME, general wild card match mie ty y 80:28:23 MAIL.SRCJIOSUBS.MAR; 1 ' (9) | v04 
| 
51 85 9A O15F 61 MOVZBL (R5)+,R1 3 Get next character in pattern ; 
2A 651 91s (016 66 CMPB R1 WA's! ; Pattern specifies wild string? . 
¢4 13 016 6 BEQL © 460$ : Branch if yes F 
2 o7 O16 64 DECL R 3; Candidate exhausted? ; 
1F 19 0169 65 BLSS 50$ ; Branch if yes : 
83 51 91 0168 06 CMPB R1,(R3)+ ; Compare pattern to candidate | : 
FS 13 1 6 BEQL 10$ ; Branch if pattern equals candidate : 
25 1 91 4 28 CMPB R1,#*A'R' 3; Pattern specifies wild character? ; 
E613 173 368 BEQL =s-108 ; Branch if yes | ; 
0175 71 ; We have detected a mismatch, or we are out of pattern while there is F 
B102 ie 3 candidate left. Back up to the last ‘'*', advance a candidate character, ; 
b1ge i 3; and try again. 3 
, | Ps 
56 D7 0175 75 20S: DECL R6 ; Count a saved candidate character | $ 
11 19 0177 76 BLSS 50$ ; Branch if no saved candidate 3 
57 D6 0179 77 INCL R7 ; Set to try next character ; 
52 56 7D 0178 78 MOVQ R6,R2 ; Restore descriptors to backup point $ 
54 58 7D O17E 379 MOVQ R8B,R4 : ; 
08 «(11 0181 380 BRB 10$ : Continue testing 
0183 386 ; Here when pattern is exhausted. 
0183 83 ; ; 
52. 0S 0183 384 $0$:  TSTL  R2 ; Candidate exhausted? 
EE 12 0185 85 BNEQ 20$ ; Branch if no 
0187 86 ; 
0187 He 3; Here to return. | 
0187 88 ; 
50 01 00 0187 89 40s: MOVL #STRS_MATCH,RO ; Set success return 
04 313A a9 50$: RET 3; Return 
Ht 398 ; We have detected a ‘'*' in the pattern. Save the pointers for backtracking. | 
54 D5 0188 94 60S: TSTL RG ; Pattern null after ‘*'? 
F8 13 018D 395 BEQL 40$ ; Branch if yes ‘ 
56 52 7D O18F 396 MOVQ R2,R6 ; Save descriptors of both strings 
58 54 «67D «(0192 «(397 MOV = R4_RB ; 
C4 11 0195 398 BRB 10$ : Continue testing | 
| 
| 
} 


pu 
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v04- MAILSREAD_ERROR_TEXT -SEP-1984 01:50: MAIL.SRCJIOSUBS.MAR; 1 (10) v04 

197 4 0 .SBTTL MAILSREAD_ERROR_TEXT : 

130 ‘ ¢ ; FUNCTIONAL DESCRIPTION: : 

197 404: READ THE ERROR MESSAGE TEXT FROM THE REMOTE NODE AND SIGNAL : 

197 405: THEM ALL AT ONCE. : 

197 406 : : 

197 49 : INPUTS: ; 

0197 408: ; 

0197 409: 4(AP) CONTEXT BLOCK ADDRESS : 

0197 410 ; 8(AP) ADDR OF ROUTINE TO CALL TO READ NEXT RECORD : 

$195 aig ; QUITS READING ON BYTE OF 0 : 

0197 413; : 

0197 414: 3 

B19) $1? ; GET STATUS MESSAGE(S) FROM SLAVE AND SIGNAL | : 

001¢ 0197 417 .ENTRY MAILSREAD_ERROR_ TEXT, “M<R2,R3,R4> ; 

534 0199 418 - CLRL 7SET END-OF -MESSAGES MARKER : 

SE FEOO cE DE 0198 420 MOVAL -=-MAILSK_INBUFFSZ(SP),SP ;CREATE MESSAGE BUFFER : 

53 DD O1A0 421 PUSHL RS ‘STACK ADDR OF PREVIOUS MSG DESC ; 

04 AE OF O1A2 422 PUSHAB 4(SP) ; CREATE DESCRIPTOR OF THIS MSG DESC ; 

00000200 8F DD O1A5S 43 PUSHL #MAILS$K_INBUFFSZ : 

54 «SE 0 060DO (O1AB) O44 MOVL SP,R4 SA VE ADDR OF THIS ONE : 

54 DD O1AE 425 PUSHL  R4 :STACK DESCRIPTOR ADDRESS : 

04 AC DD O1B0 426 PUSHL  4(AP) :STACK CONTEXT ADDRESS : 

08 BC O02 FB 0183 427 CALLS #2,a8(AP) [CALL GET-ROUTINE : 

0A 50 €9 O1B7 428 BLBC RO, 30$ [TREAT ERROR AS “5M OF MESSAGE : 

04 B4 95 OIBA 429 27S: TSTB = @4 (RG) [END OF MESSA : 

05 13 O1BD 430 BEQL 308 [BR IF YES - sien THEM : 

53 54 pO O1BF 431 MOVL R4,R3 ‘SET NEW PREVIOUS DESC ADDR : 

br 11 Oca 43¢ BRB 208 :GET NEXT MESSAGE : 

0164 433 30$: 3 

54 D4 0104 «434 CLRL = RG :INIT SIGNAL ARGUMENT COUNT | : 

0106 435 40$: : 

53 DD 0106 436 PUSHL R3 sSET ADDR OF MESSAGE DESC : 

1¢ #13 01C8 437 BEQL 608 [BRANCH IF 3 

7E 01 BO O1CA 438 MOVW #1, (SP) :SET MESSAGE yftacs (NO %MAIL-F-TEXT,) | : 

01 BO O1CD 439 MOVW = #1, = (SP) T FAO COUN : 

00001130°8F DD 01D0 440 PUSHL #SHR$_TEXT!- :SET MESSAGE NAME : 

0106 441 <MAILS_FACILITY @ STS$V_FAC_NO> : 

54 03 CO 01D6 44g ADDL #3,R4 ~ INCREMENT SIGNAL ARGUMENT COUNT : 

53 08 AB 9 109 44 MOVL  8(R3),R3 ADDR OF NEXT DESC : 

E7 1 1DD 444 BNEQ ‘BR IF THE ON : 

00000000 ' GF 4 FB ODF 445 CALLS R4,G*LIBSSIGNAL :SIGNAL THE MESSAGES : 

04 O166 446 60S: RET DONE : 

O1E? 447 3 

O1E7 448 3 

O1E7 449 
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MAILSIOSUBS = INPUT/OUTPUT SUBROUTINES 16-SEP-1984 00:46:54 VAX/V¥MS Macro v04-00 Page 13. MAI 
youro0o MAILSINCLINKADR = INCREMENT LINK ADDRESS 5-SEP-1984 39:38:25 MAIL.SRCJIOSUBS.MAR; 1 = (11) v04 
17 451 al ~SBTTL MAILSINCLINKADR = INCREMENT LINK ADDRESSEE COUNT | 
17 38 : FUNCTIONAL DESCRIPTION: | 
te 3s ; INCREMENT THE ADDRESSEE COUNT ASSOCIATED WITH A LINK 
1E? 437 : INPUTS: 
IE? 635 : 4(AP) ADDRESS OF LINK BLOCK 
167 461 : OUTPUTS: 
gies 188 : LNK 1 ADRCNT IN LINK BLOCK INCREMENTED IF LINK BLOCK ADDRESS 
O1E? 464: NON= 
gr tee 
0004 gic? 467 : .ENTRY MAILSINCLINKADR, “M<R2> 
52 04 AC DO O1F9 469 MOVL  4(AP),R2 :GET LINK BLOCK ADDRESS 
08 13 O1ED 470 BEQL 108 :1F EQL ALL DONE 
03 2E A2.01—Ss«éEOs«*OONEF 471 BBS #LNK_V_DEAD,LNK_B_FLAGS(R2),10$ ;DON'T INCREMENT IT IF DEAD 
08 A2 OiFK 47@ a INCL LNK_C_AORCNT (R2d : INCREMENT THE COUN | 
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"Ore ee 1obe Orisocce EMAIL SaCd fosubs macs] 


~SBTTL MAILSDECLINKADR = DECREMENT LINK ADDRESSEE COUNT 


+ 
FUNCTIONAL DESCRIPTION: 


DECREMENTS THE ADDRESSEE COUNT ASSOCIATED WITH A LINK 


INPUTS: 


4 (AP) 


ADDRESS OF THE LINK BLOCK 


MAIL “yt lea -“M<R2> 

4(AP),R :GET en i OF LINK BLOCK 

10$ :1F 0 THEN NONE 

hte L_ADRCNT(R2) ZALREADY 0? 

LNK_L_ADRCNT(R2) ;DECREMENT IT'S ADDRESEE COUNT 


<z 
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MAILSIOSUBS = INPUT/OU 0:46:54 VAX/VMS Macro V04-00 Page 15 MAI 
youro00 MAILSDELEMPLINK = DELETE ALL LINKS WITH 5-SEP-1984 80:38:25 MAIL.SRCJIOSUBS.MAR; 1 9 43) v04 
3 49 me .SBTTL MAILSDELEMPLINK = DELETE ALL LINKS WITH NO ADDRESSEES : 
9 498 | FUNCTIONAL DESCRIPTION | ; 
09 0; DELETE ALL LOGICAL LINKS WHICH HAVE NO ADDRESSEES ASSOCIATED ; 
3 1; WITH THEM | ; 
: ; INPUTS: : 
09 5: THE LINK LIST ; 
09 $ : 3 
8 09 8 i-- : 
09 8 ; 
001¢ 0 09 208 .ENTRY MAILSDELEMPLINK, “M<R2,R3,R4> ; 
52. 04 AC DO 0208 511 MOVL  4(AP),R2 ;START AT THE HEAD OF THE LIST ; 
54 52 DO O20F a1 MOVL : SSAVE LISTHEAD ADDRESS ; 
52 62 )SCOo=O SCO if 513 10$ MOVL LNK_L_FLINK(R2),R2 [GET NEXT LINK BLOCK ; 
54 «52)—=Ci«éisCi215) «51% 208 CMPL = R2,, RG :DONE WITH LIST? ; 
12 13 0218 515 BEQL 30 TIF EQL YES ; 
08 ag D5 O21A 516 TSTL | LNK_L_ADRCNT(R2) :NO--ANY ADDRESSEES THIS NODE? 
F312 021D 517 BNEG : QY 
53 6¢ DO O21F 518 MOVL LNK_L_FLINK(R2),R3 ;NO--GET NEXT IN LIST 
i ¢ OF Oeee 519 REMQUE (R2),R2 s;REMOVE THIS LINK FROM THE QUEUE 
17 10 0995 $20 BSBB  -DEALCOC_LNK {DELETE THE LINK AND MEMORY | 
52 53 00 0287 321 MOVL  R3,R2 [CONTINUE SCANNING 
E9 11 022A 522 BRB 20$ : CONTINUE 
04 022¢ 523 30$: RET 


MAILSLOSUBS - INPUT/OUTPUT SUBROUTINES Ig- SEP=19 4 0:46:54 AX/VMS Macro V04-00 
v04-0 MAILSDELETELINK = DELETE ALL THE LOGICAL 5-SEP-1984 01:50:47 (CMAIL.SRCJIOSUBS.MAR; 1 
p Be .SBTTL MAILSDELETELINK = DELETE ALL THE LOGICAL LINKS 
p § : FUNCTIONAL DESCRIPTION: 
p : 3 DELETE ALL THE LOGICAL LINKS IN THE LOGICAL LINK LIST. 
D 1 : CALLING SEQUENCE: 
p i ; CALL MAILSDELETELINK(LISTHEAD) 
D 4 : INPUT PARAMETERS: 
4 $3 NONE 
6 p t IMPLICIT INPUTS: 
022D 9 : OUTPUT PARAMETERS: 
8 4 rt : NONE 
020d 4g : IMPLICIT OUTPUTS: 
8555 bea: pana 
0220 545 : COMPLETION CODES: 
a 
0220 548 ; SIDE EFFECTS: 
8 : 4 ; ALL LOGICAL LINKS ARE DELETED AND SLAVE MAIL JOBS ARE STOPPED. 
0220 551 :-- 
000C 022d 258 ENTRY MALLSDELETELINK. - sDELETE ALL THE LOGICAL LINKS 
0 F 655 : (ENTRY MASK) 
53 04 AC 00 0 F 234 a MOVL 4 (AP).R3 
52. 00 83 oF 0 3 356 , RENQUE a(R3),R2 REMOVE NEXT _ ENTRY, “ 
03 10 0239 336 BSBB  DEALLOC_LNK [DEALLOCATE THE LINK BLOCK 
F611 0238 359 es BRB 10$ [CHECK FOR ANOTHER 
04 0230 561 ~ & ee ; RETURN 
063 268 
0 : 206 : : DEALLOCATE THE LINK BLOCK AFTER DELETING THE LOGICAL LINK 
0 : 266 : LINK BLOCK ADDRESS IN R2 
E 68 DEALLOC_LNK: 
21 26 a2. 02,—«*#ECO 5 6 “BB V_ALTP,LNK_B FLAGS(R2) 208 -BR IF ALTERNATE PROTOCOL 
4 0 SDASSGN_ H VEHNELNE WCHAN HANTR :DELETE THE LOGICAL LINK 
50 4F A2 9A (026 71 10S: mOVZBL “ENE. 8 _PNLEA(R GET lEnNGTH OF PROTOCOL NAME 
50 AO) OOF: (025 re PUSHAB LNK~C “[theTHCROS *SET SIZE OF ENTRY TO bEALLOCATE 
52. DD «(025 7 PUSHL RD [SET ADDR OF ENTRY 
6—E OF 025 7% PUSHAL (SP) :SET ADDR OF ADDR OF ENTRY 
08 AE ODF 39 275 PUSHAL 8(SP) [SET ADDR OF SIZE OF ENTRY 
00000000'°GF 04 F 3¢ 578 CALLS #4,G*LIBSFREE_VM SDEALLOCATE THE LIST ENTRY 
50 10Aa2 D 64 28 208 MOVL NK_L_TFRADR(R2) ,RO ;WAS ROUTINE OBTAINED? 
coy 68 57 BEQL SIF EQL NO=-JUST CONTINUE 
7 DD 026A 80 PUSHL #LNK_C_OUT DEACCESS [CODE TO DEACESS 
OC A2 OF O026C 581 PUSHAB ink _C_CONTEXT(R CONTEXT ADDRESS 


1 3 | 

PYEC INK ODELETE ALL THE LOGICAL ‘SoSEP-1obe Oi:S0:4? EMAIL SReSiosubs macs: 29° (IZ) 
RNAT 
ELI 


: CALLS #2, (RO) ;CALL ALTERNATE NET PROTOCOL HANDLER | 
é i BRE 156 ;DEALLOCATE LINK BLOCK | 
4 585 END | 
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MAIL.SRCJIOSUBS MAR; 1 


eer e cre ree nena aa ts 


! Psect synopsis ! 


pew anna wr ewewmaanecc y 


PSECT name Allocation PSECT No. Attributes 


. ABS . 00000000 ( af 0 ¢ 0.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 4444444 ( -) Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SOWNS 44 ( 18-3 ( ¢°; NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SCODES 00000274 (¢ 628.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 


+ 
! \ Performance indicators ! 


eeeeoe queasnsnenensanmenet 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00:00:00.03 00:00:02.7 
sonnend processing 111 88:8 244 Bp BR 8) 8 
195 00:00:02.46 Bo 388! Ie 5 
Synbol table sort 9 00:00: $3 00:00:01.81 
11 8880; 0.87 00:00:03.44 
Syabot table output 2 0:00:00.10 00:00:00.10 
Psect synopsis output bs S43 BR RD On 08 
Cross-reference output 80:60:0°5 Bb: bO one 
Assembler run totals 474 0:00:04.21 0:00:24.65 


The working set Limit was 1350 pages. 
21256 bytes (42 pages) of virtual memory were used to buffer the intermediate ggde. 
There were 20 pages of symbol table space allocated to hold 320 non-local and 32 local symbols. 
585 source lines were read in Pass 1, producing 51 object records in Pass 2. 
pages of virtual memory were used to define 15 macros. 


Macro Library name Macros defined 


-$255$DUA28: (MAIL .OBJ JMAILMAC MLB; 1 3 
- 55$DUA28:(SYS.OBJJLIB.MLB; 0 

$255SDUA28: SYSLIBISTARLET. MLB; 2 y 
TOTALS (all Libraries) 12 


385 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: IOSUBS/0BJ=0BJ$: IOSUBS MSRC$: IOSUBS/UPDATE=(ENHS: LOSUBS) +EXECML$/LIB+LIB$:MAILMAC/LIB 
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